home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dspjbl.arc
/
DSPJBLR.RPG
< prev
next >
Wrap
Text File
|
1991-12-04
|
4KB
|
115 lines
F*DESCRIPTION DISPLAY JOB LIST
F*PROGRAMMER DAVID EDLEN
F*
FDSPJBLD CF E WORKSTN
F JOBRRNKSFILE JOBLIST
E JOB 50 26 D
IJOBDS DS
I 1 10 JOBNAM
I 11 20 JOBUSR
I 21 26 JOBNBR
I SDS
I *PROGRAM PGM$
C/SPACE
C** PARAMETER LIST
C/SPACE
C *ENTRY PLIST
C PARM JOB$ 10
C PARM USR$ 10
C PARM NBR$ 6
C PARM OPTION 1
C PARM PRVPGM
C/SPACE
C** RETRIEVE THE JOB LIST FROM THE DATE QUEUE AND BUILD THE SUBFILE.
C/SPACE
C OPTION IFEQ '0'
C Z-ADD0 N 40
C MOVE *BLANK JOB
C*
C *IN99 DOUEQ'1'
C CALL 'QRCVDTAQ'
C PARM '@JOBLIST'QNAME 10
C PARM 'QTEMP' QLIB 10
C PARM 26 FLDLEN 50
C PARM *BLANK DATA 26
C PARM 0 WAIT 50
C FLDLEN IFEQ 0
C MOVE '1' *IN99
C ELSE
C MOVE '0' *IN99
C ADD 1 N
C MOVELDATA JOB,N
C END
C END
C*
C SORTAJOB
C MOVE '1' *IN50
C WRITEJOBDSPLY
C MOVE '0' *IN50
C Z-ADD0 JOBRRN 40
C Z-ADD1 DSPREC
C*
C 1 DO N J 40
C ADD 1 JOBRRN
C MOVELJOB,J JOBDS
C WRITEJOBLIST
C END
C*
C JOBRRN COMP 0 5151
C END
C/SPACE
C** DISPLAY THE JOB LIST; GET NEXT OPTION FROM THE OPERATOR.
C/SPACE
C WRITEMSGCTL
C WRITEINSTRUCT
C*
C DSPLY TAG *** DSPLY ***
C EXFMTJOBDSPLY
C*
C *INKA IFEQ '1'
C *INKB OREQ '1'
C MOVE '9' OPTION
C END
C*
C *INKE IFEQ '1'
C MOVE '5' OPTION
C END
C*
C OPTION CABGE'5' ENDPGM
C/SPACE
C** READ THE SUBFILE FOR SELECTIONS.
C/SPACE
C MOVE '0' STOP 1
C MOVE *BLANK OPTION
C*
C *IN99 DOUEQ'1'
C READCJOBLIST 99
C *IN99 IFEQ '0'
C STOP IFEQ '0'
C SELECT ANDNE*BLANK
C MOVE JOBNAM JOB$
C MOVE JOBUSR USR$
C MOVE JOBNBR NBR$
C MOVE SELECT OPTION
C MOVE '1' STOP
C Z-ADDJOBRRN DSPREC
C END
C MOVE *BLANK SELECT
C UPDATJOBLIST
C END
C END
C*
C OPTION IFEQ *BLANK
C MOVE '9' OPTION
C END
C/SPACE
C** END OF PROGRAM
C/SPACE
C ENDPGM TAG *** ENDPGM ***
C*
C OPTION IFEQ '9'
C MOVE '1' *INLR
C END
C*
C RETRN